Option Explicit
Sub D_Sample040()
    Dim myWb       As Workbook
    Dim myFileName As String
    Set myWb = Workbooks(1)					'Nï
    myFileName = Application.GetSaveAsFilename(,"Excelï(*.xls),*.xls")
    If myFileName = "False" Then
        MsgBox "tSwTɮצW١C"
        Exit Sub
    End If
    myWb.SaveAs Filename:=myFileName
    Set myWb = Nothing						'
End Sub

